home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / blender / blen40m / shared.dir / 00793.ls < prev    next >
Encoding:
Text File  |  1994-08-22  |  2.3 KB  |  88 lines
  1. on enterFrame
  2.   global move, i, j, k, T
  3.   set i to (i + 1) mod 8
  4.   set j to i mod 4
  5.   set k to i mod 2
  6.   set BLENDER to [789 + k, 791]
  7.   set the cursor of sprite 48 to BLENDER
  8.   if move = 0 then
  9.     if rollOver(41) then
  10.       puppetSprite(41, 1)
  11.       set the castNum of sprite 41 to the number of cast (774 + k)
  12.     else
  13.       puppetSprite(41, 0)
  14.     end if
  15.     if rollOver(42) then
  16.       puppetSprite(42, 1)
  17.       set the castNum of sprite 42 to the number of cast (780 + k)
  18.     else
  19.       puppetSprite(42, 0)
  20.     end if
  21.     if rollOver(43) then
  22.       puppetSprite(43, 1)
  23.       if the castNum of sprite 43 = 780 then
  24.         set the castNum of sprite 43 to the number of cast 782
  25.       else
  26.         set the castNum of sprite 43 to the number of cast 780
  27.       end if
  28.     else
  29.       puppetSprite(43, 0)
  30.     end if
  31.     if rollOver(44) then
  32.       puppetSprite(44, 1)
  33.       set the castNum of sprite 44 to the number of cast (750 + j)
  34.     else
  35.       puppetSprite(44, 0)
  36.     end if
  37.     if rollOver(45) then
  38.       puppetSprite(45, 1)
  39.       set the castNum of sprite 45 to the number of cast (758 + j)
  40.     else
  41.       puppetSprite(45, 0)
  42.     end if
  43.     if rollOver(46) then
  44.       puppetSprite(46, 1)
  45.       set the castNum of sprite 46 to the number of cast (754 + j)
  46.     else
  47.       cursor(0)
  48.       puppetSprite(46, 0)
  49.     end if
  50.     if rollOver(47) then
  51.       puppetSprite(47, 1)
  52.       set the castNum of sprite 47 to the number of cast (762 + j)
  53.     else
  54.       puppetSprite(47, 0)
  55.     end if
  56.     set the keyDownScript to "checkKey"
  57.   end if
  58.   if move = 1 then
  59.     repeat with T = 48 down to 41
  60.       puppetSprite(T, 0)
  61.     end repeat
  62.     set move to 0
  63.   end if
  64.   if the movieName = "JUSTIN" then
  65.     puppetSprite(38, 1)
  66.     if random(8) < 2 then
  67.       set vPos to the locV of sprite 38
  68.       set vPos to vPos + random(40)
  69.       set the locV of sprite 38 to vPos mod 480
  70.     end if
  71.     if random(8) < 2 then
  72.       set hPos to the locH of sprite 38
  73.       set hPos to hPos + random(10)
  74.       set the locH of sprite 38 to hPos mod 640
  75.     end if
  76.     set the visible of sprite 38 to 1
  77.     if random(20) < 2 then
  78.       set the visible of sprite 38 to 0
  79.     end if
  80.     if j = 1 then
  81.       if random(8) < 2 then
  82.         set the castNum of sprite 38 to 224 + random(22)
  83.       end if
  84.     end if
  85.     updateStage()
  86.   end if
  87. end
  88.